www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/leaveword/admin_saveconfig.asp

    <!-- #include file="config.asp" -->
<!-- #include file="style.asp" -->
<!-- #include file="admin_verify.asp" -->



<%

function errbox(byval errmsg)
Response.Write errmsg & "<a href=""admin_config.asp?page=" &Request.Form("page")& """>返回</a>"
Response.Write "<script language=""JavaScript"">alert('" &errmsg& "');history.back();</script>"
Response.End
end function

function isnum(byval pdnum)
if isnumeric(pdnum)=true then
	isnum=true
	exit function
end if

if right(pdnum,1)="%" then
	pdnum=left(pdnum,len(pdnum)-1)
	if isnumeric(pdnum) then
		isnum=true
		exit function
	end if
end if

isnum=false	
end function

Response.Expires=-1

showpage=15
if isnumeric(Request.Form("page")) and len(Request.Form("page"))<=2 and Request.Form("page")<>"" then showpage=cint(Request.Form("page"))
	


if isnumeric(request.Form("admintimeout"))=false and cint(showpage and 1)<> 0 then
	errbox "“管理员登录超时”必须为数字！"
elseif isnumeric(request.Form("showip"))=false and cint(showpage and 1)<> 0 then
	errbox "“为访客显示IP”必须为数字！"
elseif isnumeric(request.Form("adminshowip"))=false and cint(showpage and 1)<> 0 then
	errbox "“为管理员显示IP”必须为数字！"
elseif isnumeric(request.Form("adminshoworiginalip"))=false and cint(showpage and 1)<> 0 then
	errbox "“为管理员显示原IP”必须为数字！"
elseif isnumeric(request.Form("vcodecount"))=false and cint(showpage and 1)<> 0 then
	errbox "“验证码长度”必须为数字！"
elseif isnumeric(request.Form("maillevel"))=false and cint(showpage and 2)<> 0 then
	errbox "“邮件紧急程度”必须为数字！"
elseif isnum(request.Form("tablewidth"))=false and cint(showpage and 4)<> 0 then
	errbox "“留言本总宽度”必须为数字或百分比！"
elseif isnum(request.Form("tableleftwidth"))=false and cint(showpage and 4)<> 0 then
	errbox "“留言本左窗格宽度”必须为数字或百分比！"
elseif isnumeric(request.Form("leaveleftwidth"))=false and cint(showpage and 4)<> 0 then
	errbox "“‘留言’左方文本宽度”必须为数字！"
elseif isnumeric(request.Form("leavevcodewidth"))=false and cint(showpage and 4)<> 0 then
	errbox "“‘验证码’”文本框宽度”必须为数字！"
elseif isnumeric(request.Form("leavetitlewidth"))=false and cint(showpage and 4)<> 0 then
	errbox "“‘留言标题’”文本宽度”必须为数字！"
elseif isnumeric(request.Form("leavecontentwidth"))=false and cint(showpage and 4)<> 0 then
	errbox "“‘留言内容’文本宽度”必须为数字！"
elseif isnumeric(request.Form("leavecontentheight"))=false and cint(showpage and 4)<> 0 then
	errbox "“‘留言内容’文本高度”必须为数字！"
elseif isnumeric(request.Form("ubbtoolwidth"))=false and cint(showpage and 4)<> 0 then
	errbox "“‘写留言’UBB工具宽”必须为数字！"
elseif isnumeric(request.Form("ubbtoolheight"))=false and cint(showpage and 4)<> 0 then
	errbox "“‘写留言’UBB工具高”必须为数字！"
elseif isnumeric(request.Form("advdeltextwidth"))=false and cint(showpage and 4)<> 0 then
	errbox "“‘高级删除’中文本宽”必须为数字！"
elseif isnumeric(request.Form("setinfotextwidth"))=false and cint(showpage and 4)<> 0 then
	errbox "“‘修改资料’中文本宽”必须为数字！"
elseif isnumeric(request.Form("searchtextwidth"))=false and cint(showpage and 4)<> 0 then
	errbox "“‘留言搜索’文本宽度”必须为数字！"
elseif isnumeric(request.Form("configtextwidth"))=false and cint(showpage and 4)<> 0 then
	errbox "“‘参数’中文本宽度”必须为数字！"
elseif isnumeric(request.Form("filtertextwidth"))=false and cint(showpage and 4)<> 0 then
	errbox "“‘内容过滤’中文本宽”必须为数字！"
elseif isnumeric(request.Form("replytextwidth"))=false and cint(showpage and 4)<> 0 then
	errbox "“回复、公告编辑框宽度”必须为数字！"
elseif isnumeric(request.Form("replytextheight"))=false and cint(showpage and 4)<> 0 then
	errbox "“回复、公告编辑框高度”必须为数字！"
elseif isnumeric(request.Form("itemsperpage"))=false and cint(showpage and 4)<> 0 then
	errbox "“每页显示的留言数”必须为数字！"
elseif isnumeric(request.Form("picturesperrow"))=false and cint(showpage and 4)<> 0 then
	errbox "“头像每行显示的数目”必须为数字！"
elseif isnumeric(request.Form("frequentfacecount"))=false and cint(showpage and 4)<> 0 then
	errbox "“少量显示的头像数”必须为数字！"
elseif isnumeric(request.Form("wordslimit"))=false and cint(showpage and 8)<> 0 then
	errbox "“留言字数限制”必须为数字！"
else
	if cint(showpage and 1)<> 0 then
		tstatus1=Request.Form("status1")
		if tstatus1<>"0" and tstatus1<>"1" then tstatus1=1
				
		tstatus2=Request.Form("status2")
		if tstatus2<>"0" and tstatus2<>"2" then tstatus2=2
				
		tstatus3=Request.Form("status3")
		if tstatus3<>"0" and tstatus3<>"4" then tstatus3=4
				
		tstatus4=Request.Form("status4")
		if tstatus4<>"0" and tstatus4<>"16" then tstatus4=16
				
		tstatus5=Request.Form("status5")
		if tstatus5<>"0" and tstatus5<>"32" then tstatus5=32
				
		tstatus6=Request.Form("status6")
		if tstatus6<>"0" and tstatus6<>"64" then tstatus6=64
				
		tstatus7=Request.Form("status7")
		if tstatus7<>"0" and tstatus7<>"8" then tstatus6=8
				
		tstatus=cint(tstatus1)+cint(tstatus2)+cint(tstatus3)+cint(tstatus4)+cint(tstatus5)+cint(tstatus6)+cint(tstatus7)
				
		thomelogo=server.htmlEncode(Request.Form("homelogo"))
		thomelogo=textfilter(replace(thomelogo," ",""),true)
		if lcase(left(thomelogo,7))<>"http://" and lcase(left(thomelogo,6))<>"ftp://" and thomelogo<>"" then thomelogo="http://" & thomelogo

		thomename=server.htmlEncode(Request.Form("homename"))
				
		thomeaddr=server.htmlEncode(Request.Form("homeaddr"))
		thomeaddr=textfilter(replace(thomeaddr," ",""),true)
		if lcase(left(thomeaddr,7))<>"http://" and lcase(left(thomeaddr,6))<>"ftp://" and thomeaddr<>"" then thomeaddr="http://" & thomeaddr
				
		tadminhtml=0
		if Request.Form("adminhtml")="1" then tadminhtml=tadminhtml+1
		if Request.Form("adminubb")="1" then tadminhtml=tadminhtml+2
		if Request.Form("adminertn")="1" then tadminhtml=tadminhtml+4
		if Request.Form("adminviewcode")="1" then tadminhtml=tadminhtml+8

		tguesthtml=0
		if Request.Form("guesthtml")="1" then tguesthtml=tguesthtml+1
		if Request.Form("guestubb")="1" then tguesthtml=tguesthtml+2
		if Request.Form("guestertn")="1" then tguesthtml=tguesthtml+4

		tadmintimeout=Request.Form("admintimeout")
		if len(cstr(tadmintimeout))>4 or isnumeric(tadmintimeout)=false then tadmintimeout=1440
		if cint(tadmintimeout)>1440 then tadmintimeout=1440
		if cint(tadmintimeout)<1 then tadmintimeout="20"
		
		tshowip=Request.Form("showip")
		if cint(tshowip)<0 or cint(tshowip)>4 then tshowip="0"

		tadminshowip=Request.Form("adminshowip")
		if cint(tadminshowip)<0 or cint(tadminshowip)>4 then tadminshowip="0"

		tadminshoworiginalip=Request.Form("adminshoworiginalip")
		if cint(tadminshoworiginalip)<0 or cint(tadminshoworiginalip)>4 then tadminshoworiginalip="0"
	
		tvcodecount=Request.Form("vcodecount")
		if len(cstr(tvcodecount))>2 then tvcodecount=4
		if cint(tvcodecount)>10 then tvcodecount=4
		if cint(tvcodecount)<0 then tvcodecount=4

	end if
	
	if cint(showpage and 2)<> 0 then
		tmailflag=0
		if Request.Form("mailnewinform")="1" then tmailflag=tmailflag+1
		if Request.Form("mailreplyinform")="1" then tmailflag=tmailflag+2
	
		tmailreceive=Request.Form("mailreceive")
		if len(tmailreceive)>48 then tmailreceive=left(tmailreceive,48)
		
		tmailfrom=Request.Form("mailfrom")
		if len(tmailfrom)>48 then tmailfrom=left(tmailfrom,48)
		
		tmailsmtpserver=Request.Form("mailsmtpserver")
		if len(tmailsmtpserver)>48 then tmailsmtpserver=left(tmailsmtpserver,48)

		tmailuserid=Request.Form("mailuserid")
		if len(tmailuserid)>48 then tmailuserid=left(tmailuserid,48)

		tmailuserpass=Request.Form("mailuserpass")
		if len(tmailuserpass)>48 then tmailuserpass=left(tmailuserpass,48)
		
		tmaillevel=Request.Form("maillevel")
		if len(cstr(tmaillevel))>1 then maillevel=3
		if clng(tmaillevel)<1 or clng(tmaillevel)>5 then tmaillevel=3
	end if
	
	if cint(showpage and 4)<> 0 then
		tcssfontfamily=Request.Form("cssfontfamily")
		if len(tcssfontfamily)>48 then tcssfontfamily=left(tcssfontfamily,48)
		
		tcssfontsize=Request.Form("cssfontsize")
		if len(tcssfontsize)>8 then tcssfontsize=left(tcssfontsize,8)
		
		tcsslineheight=Request.Form("csslineheight")
		if len(tcsslineheight)>8 then tcsslineheight=left(tcsslineheight,8)
	
		ttablewidth=Request.Form("tablewidth")
		if len(cstr(ttablewidth))>5 then ttablewidth="630"
		if isnumeric(ttablewidth) then
			if clng(ttablewidth)<1 then ttablewidth="630"
			ttablewidth=cstr(round(clng(ttablewidth)))
		else
			if left(ttablewidth,1)="-" then ttablewidth=right(ttablewidth,len(ttablewidth)-1)
		end if

		ttableleftwidth=Request.Form("tableleftwidth")
		if len(cstr(ttableleftwidth))>5 then ttableleftwidth="150"
		if isnumeric(ttableleftwidth) then
			if clng(ttableleftwidth)<1 then ttableleftwidth="150"
			ttableleftwidth=cstr(round(clng(ttableleftwidth)))
		else
			if left(ttableleftwidth,1)="-" then ttableleftwidth=right(ttableleftwidth,len(ttableleftwidth)-1)
		end if
	
		tleaveleftwidth=Request.Form("leaveleftwidth")
		if len(cstr(tleaveleftwidth))>3 then tleaveleftwidth=20
		if cint(tleaveleftwidth)>255 then tleaveleftwidth=255
		if cint(tleaveleftwidth)<1 then tleaveleftwidth=20
	
		tleavevcodewidth=Request.Form("leavevcodewidth")
		if len(cstr(tleavevcodewidth))>3 then tleavevcodewidth=10
		if cint(tleavevcodewidth)>255 then tleavevcodewidth=10
		if cint(tleavevcodewidth)<1 then tleavevcodewidth=10
	
		tleavetitlewidth=Request.Form("leavetitlewidth")
		if len(cstr(tleavetitlewidth))>3 then tleavetitlewidth=30
		if cint(tleavetitlewidth)>255 then tleavetitlewidth=255
		if cint(tleavetitlewidth)<1 then tleavetitlewidth=30
	
		tleavecontentwidth=Request.Form("leavecontentwidth")
		if len(cstr(tleavecontentwidth))>3 then tleavecontentwidth=50
		if cint(tleavecontentwidth)>255 then tleavecontentwidth=255
		if cint(tleavecontentwidth)<1 then tleavecontentwidth=50
	
		tleavecontentheight=Request.Form("leavecontentheight")
		if len(cstr(tleavecontentheight))>3 then tleavecontentheight=7
		if cint(tleavecontentheight)>255 then tleavecontentheight=255
		if cint(tleavecontentheight)<1 then tleavecontentheight=7
	
		tubbtoolwidth=Request.Form("ubbtoolwidth")
		if len(cstr(tubbtoolwidth))>4 then tubbtoolwidth=320
		if cint(tubbtoolwidth)>9999 then tubbtoolwidth=320
		if cint(tubbtoolwidth)<1 then tubbtoolwidth=320
	
		tubbtoolheight=Request.Form("ubbtoolheight")
		if len(cstr(tubbtoolheight))>4 then tubbtoolheight=48
		if cint(tubbtoolheight)>9999 then tubbtoolheight=48
		if cint(tubbtoolheight)<1 then tubbtoolheight=48
	
		tsearchtextwidth=Request.Form("searchtextwidth")
		if len(cstr(tsearchtextwidth))>3 then tsearchtextwidth=20
		if cint(tsearchtextwidth)>255 then tsearchtextwidth=255
		if cint(tsearchtextwidth)<1 then tsearchtextwidth=20
	
		tadvdeltextwidth=Request.Form("advdeltextwidth")
		if len(cstr(tadvdeltextwidth))>3 then tadvdeltextwidth=20
		if cint(tadvdeltextwidth)>255 then tadvdeltextwidth=255
		if cint(tadvdeltextwidth)<1 then tadvdeltextwidth=20
	
		tsetinfotextwidth=Request.Form("setinfotextwidth")
		if len(cstr(tsetinfotextwidth))>3 then tsetinfotextwidth=20
		if cint(tsetinfotextwidth)>255 then tsetinfotextwidth=255
		if cint(tsetinfotextwidth)<1 then tsetinfotextwidth=20

		tconfigtextwidth=Request.Form("configtextwidth")
		if len(cstr(tconfigtextwidth))>3 then tconfigtextwidth=80
		if cint(tconfigtextwidth)>255 then tconfigtextwidth=255
		if cint(tconfigtextwidth)<1 then tconfigtextwidth=80
	
		tfiltertextwidth=Request.Form("filtertextwidth")
		if len(cstr(tfiltertextwidth))>3 then tfiltertextwidth=62
		if cint(tfiltertextwidth)>255 then tfiltertextwidth=255
		if cint(tfiltertextwidth)<1 then tfiltertextwidth=62
	
		treplytextwidth=Request.Form("replytextwidth")
		if len(cstr(treplytextwidth))>3 then treplytextwidth=62
		if cint(treplytextwidth)>255 then treplytextwidth=255
		if cint(treplytextwidth)<1 then treplytextwidth=62
	
		treplytextheight=Request.Form("replytextheight")
		if len(cstr(treplytextheight))>3 then treplytextheight=62
		if cint(treplytextheight)>255 then treplytextheight=255
		if cint(treplytextheight)<1 then treplytextheight=62

		titemsperpage=Request.Form("itemsperpage")
		if len(cstr(titemsperpage))>5 then titemsperpage=5
		if clng(titemsperpage)>32767 then titemsperpage=32767
		if cint(titemsperpage)<1 then titemsperpage=5

		tpicturesperrow=Request.Form("picturesperrow")
		if len(cstr(tpicturesperrow))>3 then tpicturesperrow=6
		if cint(tpicturesperrow)>255 then tpicturesperrow=255
		if cint(tpicturesperrow)<1 then tpicturesperrow=6

		tfrequentfacecount=Request.Form("frequentfacecount")
		if len(cstr(tfrequentfacecount))>3 then tfrequentfacecount=24
		if tfrequentfacecount>255 then tfrequentfacecount=255
		if cint(tfrequentfacecount)<1 then tfrequentfacecount=24
		if cint(tfrequentfacecount)>cint(FaceCount) then tfrequentfacecount=FaceCount

	end if
	
	if cint(showpage and 8)<> 0	then
		tvisualflag=0
		if Request.Form("replyinword")="1" then tvisualflag=tvisualflag+1
		if Request.Form("showubbtool")="1" then tvisualflag=tvisualflag+2
	
		ttablealign=Request.Form("tablealign")
		if ttablealign<>"left" and ttablealign<>"center" and ttablealign<>"right" then ttablealign="left"
				
		tpagecontrol=0			
		if Request.Form("showborder")="1" then tpagecontrol=tpagecontrol+1
		if Request.Form("showtitle")="1" then tpagecontrol=tpagecontrol+2
		if Request.Form("showcontext")="1" then tpagecontrol=tpagecontrol+4
		if Request.Form("selectcontent")="1" then tpagecontrol=tpagecontrol+8
		if Request.Form("copycontent")="1" then tpagecontrol=tpagecontrol+16
		if Request.Form("beframed")="1" then tpagecontrol=tpagecontrol+32

		twordslimit=Request.Form("wordslimit")
		if len(cstr(twordslimit))>10 then twordslimit=0
		if twordslimit>2147483647 then twordslimit=2147483647
		twordslimit=abs(twordslimit)
		
		tdelconfirm=0
		if Request.Form("deltip")="1" then tdelconfirm=tdelconfirm+1
		if Request.Form("delretip")="1" then tdelconfirm=tdelconfirm+2
		if Request.Form("delseltip")="1" then tdelconfirm=tdelconfirm+4
		if Request.Form("deladvtip")="1" then tdelconfirm=tdelconfirm+8
		if Request.Form("passaudittip")="1" then tdelconfirm=tdelconfirm+16
		if Request.Form("passseltip")="1" then tdelconfirm=tdelconfirm+32

		tstylename=server.htmlEncode(Request.Form("style"))
		tstylename=replace(tstylename," ","")
		
	end if

	set cn1=server.CreateObject("ADODB.Connection")
	set rs1=server.CreateObject("ADODB.Recordset")

	CreateConn cn1,dbtype
	rs1.open "SELECT * FROM config",cn1,0,3

	if cint(showpage and 1)<> 0	then
		rs1("status")=tstatus
		rs1("homelogo")=thomelogo
		rs1("homename")=thomename
		rs1("homeaddr")=thomeaddr
		rs1("adminhtml")=tadminhtml
		rs1("guesthtml")=tguesthtml
		rs1("admintimeout")=tadmintimeout
		rs1("showip")=tshowip
		rs1("adminshowip")=tadminshowip
		rs1("adminshoworiginalip")=tadminshoworiginalip
		rs1("vcodecount")=tvcodecount
	end if
	if cint(showpage and 2)<> 0	then
		rs1("mailflag")=tmailflag
		rs1("mailreceive")=tmailreceive
		rs1("mailfrom")=tmailfrom
		rs1("mailsmtpserver")=tmailsmtpserver
		rs1("mailuserid")=tmailuserid
		rs1("mailuserpass")=tmailuserpass
		rs1("maillevel")=tmaillevel
	end if
	if cint(showpage and 4)<> 0	then
		rs1("cssfontfamily")=tcssfontfamily
		rs1("cssfontsize")=tcssfontsize
		rs1("csslineheight")=tcsslineheight
		rs1("tablewidth")=ttablewidth
		rs1("tableleftwidth")=ttableleftwidth
		rs1("leaveleftwidth")=tleaveleftwidth
		rs1("leavevcodewidth")=tleavevcodewidth
		rs1("leavetitlewidth")=tleavetitlewidth
		rs1("leavecontentwidth")=tleavecontentwidth
		rs1("leavecontentheight")=tleavecontentheight
		rs1("ubbtoolwidth")=tubbtoolwidth
		rs1("ubbtoolheight")=tubbtoolheight
		rs1("searchtextwidth")=tsearchtextwidth
		rs1("advdeltextwidth")=tadvdeltextwidth
		rs1("setinfotextwidth")=tsetinfotextwidth
		rs1("configtextwidth")=tconfigtextwidth
		rs1("filtertextwidth")=tfiltertextwidth
		rs1("replytextwidth")=treplytextwidth
		rs1("replytextheight")=treplytextheight
		rs1("itemsperpage")=titemsperpage
		rs1("picturesperrow")=tpicturesperrow
		rs1("frequentfacecount")=tfrequentfacecount
	end if
	if cint(showpage and 8)<> 0	then
		rs1("visualflag")=tvisualflag
		rs1("tablealign")=ttablealign
		rs1("pagecontrol")=tpagecontrol
		rs1("wordslimit")=twordslimit
		rs1("delconfirm")=tdelconfirm
		rs1("stylename")=tstylename
	end if
	rs1.Update
	
	rs1.Close
	cn1.close
	set rs1=nothing
	set cn1=nothing

end if

Response.Redirect "admin_config.asp?page=" & showpage
%>